home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / gl_gbmat.zip / GOODBYE.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-06-05  |  5KB  |  230 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.  
  24. ;------------------------------------------------------------------------------
  25.  
  26.     Cls
  27.     STRING001 = ReadLine(PCBDat(), 2)
  28.     Cls
  29.     Newlines 1
  30.     PrintLn "@X09     @X0A▄█████▄ ▄█████▄ ▄█████▄ ██████▄         ██████▄ ██   ██ ▄██████  @X09██"
  31.     PrintLn "@X09     @X0A██  ▄▄▄ ██   ██ ██   ██ ██   ██  @X09▄▄▄▄▄  @X0A██▄▄▄█▀ ██▄ ▄██ ██▄▄▄▄   @X09██"
  32.     PrintLn "@X09     @X0A██   ██ ██   ██ ██   ██ ██   ██  @X09▀▀▀▀▀  @X0A██▀▀▀██  ▀███▀  ██▀▀▀▀   @X09▀▀"
  33.     PrintLn "@X09     @X0A▀█████▀ ▀█████▀ ▀█████▀ ██████▀         ██████▀   ▐█▌   ▀██████  @X09██"
  34.     PrintLn "@X09▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄"
  35.     PrintLn "@X09▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀"
  36.     PrintLn "@X09         [@X0AG@X09]@X0DOODBYE! LET ME OFF!          @X09[@X0AC@X09]@X0DOMMENT TO " + STRING001 + ""
  37.     PrintLn "@X0D         @X09[@X0AP@X09]@X0DAGE THE SYSOP                @X09[@X0AI@X09]@X0DNFO ABOUT THiS PPE!"
  38.     PrintLn "@X0D         @X09[@X0AA@X09]@X0DLL! LEAVE MSG TO ALL USERS!  @X09[@X0AL@X09]@X0DEAVE A MSG TO SOME USER..."
  39.     PrintLn "@X09▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄"
  40.     PrintLn "@X09▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀"
  41.     STRING004 = "Q"
  42.     InputText "", STRING004, 13, 1
  43.     Select Case (Upper(STRING004))
  44.         Case "C"
  45.             Gosub LABEL001
  46.         Case "I"
  47.             Gosub LABEL002
  48.         Case "L"
  49.             Gosub LABEL003
  50.         Case "A"
  51.             Gosub LABEL004
  52.         Case "P"
  53.             Gosub LABEL005
  54.         Case "G"
  55.             Gosub LABEL007
  56.             :LABEL001
  57.             KbdStuff Chr(13)
  58.             Cls
  59.             KbdStuff "C" + Chr(13)
  60.             KbdStuff "Y" + Chr(13)
  61.             KbdStuff "N" + Chr(13)
  62.             KbdStuff "Y" + Chr(13)
  63.             Return
  64.             :LABEL002
  65.             Cls
  66.             PrintLn "@X09LOGOFF MATRiX PPE CREATED BY RETALIATOR [GLORY]!"
  67.             Wait
  68.             Return
  69.             :LABEL003
  70.             Cls
  71.             PrintLn "@X09LEAViNG A MESSAGE TO SOME DUDE ON THiS K00L BOARD!"
  72.             KbdStuff Chr(13)
  73.             Cls
  74.             KbdStuff "E" + Chr(13)
  75.             Return
  76.             :LABEL004
  77.             Cls
  78.             PrintLn "@X09LEAViNG A PUBLiC MESSAGE TO ALL USERS!"
  79.             KbdStuff Chr(13)
  80.             KbdStuff "E" + Chr(13)
  81.             KbdStuff Chr(13)
  82.             KbdStuff "LiSTEN DUDEZ!"
  83.             KbdStuff Chr(13)
  84.             KbdStuff Chr(13)
  85.             KbdStuff Chr(13)
  86.             KbdStuff "Hi DUDEZ!"
  87.             KbdStuff Chr(13)
  88.             KbdStuff "---------"
  89.             KbdStuff Chr(13)
  90.             Return
  91.             :LABEL005
  92.             Newlines 1
  93.             PrintLn "@X0F┌@X07─@X01───────────────────────────────────────@X07─@X0F┐"
  94.             PrintLn "@X01│ @X0FAc@X07tu@X08al @X0Flo@X07ca@X08l @X0Fti@X07m@X08e is:@X09 ", Date(), " ", Time(), " @X07│"
  95.             PrintLn "@X07│ @X0FEn@X07te@X08r @X0Fyo@X07u@X08r @X0FRe@X07AS@X08oN. @X0F(1@X073@X080 @X0Fch@X07ar@X08s, @X0Fm@X07a@X08x@X07@X0F)@X01     │"
  96.             PrintLn "@X0F└@X07─@X01───────────────────────────────────────@X07─@X0F┘@X08"
  97.             PrintLn ""
  98.             Newlines 2
  99.             SPrintLn "Press SPACE to break 4 a chat !"
  100.             Print "@X0FPag@X07in@X08g @X0FΓ@X0BHE@X08=@X0BG@X030D @X0F(Ctr@X07l-C @X08to @X0Fab@X07or@X08t)"
  101.             For STRING002 = 1 To 15
  102.                 Print "@X07 ."
  103.                 If (KInkey() == " ") Then
  104.                     Chat
  105.                     Goto LABEL006
  106.                 Endif
  107.                 STRING003 = Inkey()
  108.                 If (Asc(STRING003) == 3) Then
  109.                     Newlines 2
  110.                     PrintLn "@X0FOper@X07ati@X08on @X0Fab@X07ort@X08ed @X0Fb@X07y @X0Fus@X07e@X08r."
  111.                     Newline
  112.                     Goto LABEL006
  113.                 Endif
  114.                 Delay 15
  115.             Next
  116.             Newlines 2
  117.             Newline
  118.             PageOn
  119.             PrintLn "@X0FΓ@X0BHE@X08=@X0BG@X030D @X0Fh@X07a@X08s @X0Fbe@X07e@X08n @X0Fpa@X07ge@X08d ..."
  120.             PrintLn "@X0FY@X07o@X08u @X0Fm@X07a@X08y @X0Fcont@X07in@X08ue @X0Fus@X07in@X08g @X0Ft@X07h@X08e @X0Fsys@X07te@X08m"
  121.             PrintLn "@X0Fun@X07ti@X08l he @X0Fans@X07we@X08rs @X0Fyo@X07u@X08r @X0Freq@X07ue@X08st."
  122.             Newlines 1
  123.             End
  124.             :LABEL006
  125.             Return
  126.             :LABEL007
  127.             Cls
  128.             PrintLn "@X01W@X09E @X0BA@X0FRE LEAViNG @X0A@BOARDNAME@ @X0FBUT DON'T BE WORRY, YOU WiLL CALL US AGA@X0Bi@X09N@X01!"
  129.             Delay 10
  130.             Cls
  131.             PrintLn "@X0F┌@X07─@X01───────────────────────────────────────@X07─@X0F┐"
  132.             PrintLn "@X01│ @X0FAc@X07tu@X08al @X0Flo@X07ca@X08l @X0Fti@X07m@X08e is:@X09 ", Date(), " ", Time(), " @X07│"
  133.             PrintLn "@X0F└@X07─@X01───────────────────────────────────────@X07─@X0F┘@X08     Coded By Retaliator"
  134.             PrintLn ""
  135.             Delay 5
  136.             PrintLn "@X0FA@X07l@X08so @X0FR@X07e@X08mmeber @X0FY@X07o@X08ur @X0FS@X07t@X08ats!"
  137.             PrintLn "@X07"
  138.             PrintLn "@X08                        .@X07:@X0F] User  Statistics [@X07:@X08."
  139.             Newlines 1
  140.             PrintLn "@X0F                          @X08Han@X07d@X0Fle  @USER@"
  141.             PrintLn "                       @X08User @X07No@X0Fte  @CITY@"
  142.             PrintLn "                  @X08Security @X07Lev@X0Fel  @SECURITY@"
  143.             PrintLn "                        @X08Time@X07s @X0FOn  @NUMTIMESON@"
  144.             PrintLn "                    @X08Last Da@X07te @X0FOn  @LASTDATEON@"
  145.             PrintLn "                   @X08Caller Nu@X07mb@X0Fer  @NUMCALLS@"
  146.             PrintLn "                        @X08Uploa@X07d@X0Fed  @UPFILES@ @X07files@X08/@X0F@UPBYTES@@X07bytes"
  147.             PrintLn "@X0F                      @X07Download@X0Fed  @DLFILES@ @X07files@X08/@X0F@DLBYTES@@X07bytes"
  148.             PrintLn "@X0F                      @X08File @X07Rat@X0Fio  @FILERATIO@"
  149.             PrintLn "                      @X08By@X07te Rat@X0Fio  @BYTERATIO@"
  150.             Hangup
  151.             Return
  152.     End Select
  153.     End
  154.  
  155. ;------------------------------------------------------------------------------
  156. ;
  157. ; Usage report (before postprocessing)
  158. ;
  159. ; ■ Statements used :
  160. ;
  161. ;    2       End
  162. ;    9       Cls
  163. ;    1       Wait
  164. ;    17      Goto 
  165. ;    5       Let 
  166. ;    2       Print 
  167. ;    41      PrintLn 
  168. ;    9       If 
  169. ;    1       Hangup
  170. ;    6       Gosub 
  171. ;    6       Return
  172. ;    3       Delay 
  173. ;    2       Newline
  174. ;    7       Newlines 
  175. ;    1       InputText 
  176. ;    18      KbdStuff 
  177. ;    1       Chat
  178. ;    1       SPrintLn 
  179. ;    1       PageOn
  180. ;
  181. ;
  182. ; ■ Functions used :
  183. ;
  184. ;    9       +
  185. ;    8       ==
  186. ;    1       <
  187. ;    1       <=
  188. ;    2       >=
  189. ;    9       !
  190. ;    2       &&
  191. ;    1       ||
  192. ;    6       Upper()
  193. ;    15      Chr()
  194. ;    1       Asc()
  195. ;    2       Date()
  196. ;    2       Time()
  197. ;    1       Inkey()
  198. ;    1       PCBDat()
  199. ;    1       ReadLine()
  200. ;    1       KInkey()
  201. ;
  202. ;------------------------------------------------------------------------------
  203. ;
  204. ; Analysis flags : Bd
  205. ;
  206. ; B - Brute hangup ■ 1
  207. ;     Program hangup without notification. This may be a good way to
  208. ;     disconnect a user, but if used randomly, may be very nasty
  209. ;     ■ Search for : HANGUP, DTROFF
  210. ;
  211. ; d - Access PCBOARD.DAT ■ 2
  212. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  213. ;     for many PPE so they can find various informations on the system
  214. ;     (system paths, max number of lines in messages, ...) but it may also
  215. ;     be a way to gather vital informations.
  216. ;     ■ Search for : PCBDAT()
  217. ;
  218. ;------------------------------------------------------------------------------
  219. ;
  220. ; Postprocessing report
  221. ;
  222. ;    1       For/Next
  223. ;    0       While/EndWhile
  224. ;    2       If/Then or If/Then/Else
  225. ;    1       Select Case
  226. ;
  227. ;------------------------------------------------------------------------------
  228. ;                 AEGiS Corp - Break the routines, code against the machines!
  229. ;------------------------------------------------------------------------------
  230.